home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 27.zip
/
BS1 part 27
/
VisionaleV1.1-D1.adf
/
virx
/
ScaleVertices.virx
< prev
next >
Wrap
Text File
|
1992-12-03
|
885b
|
51 lines
/*
* ScaleVertices.virx
* Copyright (c)1992 Bruno Costa & Lucia Darsa
*/
options results
signal on HALT
signal on SYNTAX
signal on FAILURE
lockgui
form = '"BOOL,TO _Window,0|' ||,
'STR,_X Factor:,1.0,6|' ||,
'STR,_Y Factor:,1.0,6"'
requestform TITLE '"Scale Vertices"' form
if rc >= 5 then
signal halt
parse var result window '|' sx '|' sy
if window = 0 then
winname = 'FROM'
else
winname = 'TO'
getcenterselected winname
parse var result cx cy
transformpoints winname sx 0 (-sx * cx + cx) 0 sy (-sy * cy + cy) 0 0 1
unlockgui
exit 0
BREAK_C:
HALT:
unlockgui
exit 20
FAILURE:
requestnotify '"Host *"'address()'*" returned an error (severity 'rc')*nexecuting' compress(sourceline(2),'* ') 'at line' SIGL'"'
unlockgui
exit 20
SYNTAX:
requestnotify '"'errortext(rc)'*nexecuting' compress(sourceline(2),'* ') 'at line' SIGL'"'
unlockgui
exit 20